home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / misc / nshadow / s-p.bas < prev    next >
BASIC Source File  |  1994-06-23  |  912b  |  30 lines
  1. 10 PRINT "          SERIES TO PARALLEL CONVERSION"
  2. 15 INPUT " ENTER SERIES RESISTANCE (RS)"; RS
  3. 20 INPUT " ENTER SERIES REACTANCE (XS) (-) IF CAPACITIVE"; XS
  4. 25 RP = (RS^2 + XS^2)/RS
  5. 30 XP = (RS^2 + XS^2)/XS
  6. 35 ZS = (RS^2 + XS^2)^.5
  7. 40 W = 57.29578
  8. 45 A = (ATN(XS/RS))*W
  9. 50 AB = -A
  10. 55 YP = 1/ZS
  11. 60 AC = SIN(AB/W)
  12. 65 AD = COS(AB/W)
  13. 70 GP = YP * AD
  14. 75 BP = YP * AC
  15. 80 PRINT
  16. 85 PRINT "          ***ANSWERS***"
  17. 90 PRINT
  18. 95 PRINT RS, "SERIES RESISTANCE (RS)"
  19. 100 PRINT XS, "SERIES REACTANCE (XS)"
  20. 105 PRINT ZS, "SERIES IMPEDANCE (ZS)"
  21. 110 PRINT A, "(ZS) PHASE ANGLE (A)"
  22. 111 PRINT RP, "PARALLEL RESISTANCE (RP)"
  23. 112 PRINT XP, "PARALLEL REACTANCE (XP)"
  24. 115 PRINT YP, "PARALLEL ADMITTANCE (YP)"
  25. 120 PRINT GP, "PARALLEL CONDUCTANCE (GP)"
  26. 125 PRINT BP, "PARALLEL SUSCEPTANCE (BP)"
  27. 130 PRINT AB, "(YP) PHASE ANGLE (AB)"
  28. 135 PRINT ZS;RS;XS, "ZS = RS + jXS"
  29. 140 PRINT YP;GP;BP, "YP = GP + jBP"
  30.